home *** CD-ROM | disk | FTP | other *** search
/ Trouble & Attitude 4 / Trouble and Attitude - Issue 04.iso / mac / DATA / MOVIES / Shared.Cxt / 00076_Field_Sidebar Script Template.txt < prev    next >
Text File  |  1997-02-06  |  3KB  |  115 lines
  1.  
  2. --
  3. -- Edge SIDEBAR Script 31-Oct-96
  4. --
  5. -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
  6.  
  7. on enterFrame
  8.   
  9.   global gMovieName, gMovie, gSoloMode
  10.   global gNextIcon, gPreIcon, gBackIcon, gControlIcon, gIndexIcon, gFirstIcon
  11.   global gLastFrame, gMusicOn, gCaptionOn
  12.   global gLocalSound
  13.   global gCurPath, gNavMode, gControlPanel
  14.   global gMultiPageSidebar -- quick KLUDGE
  15.   
  16.   set gNavMode = "sidebar"
  17.   
  18.   if voidP("gMultiPageSidebar") then set gMultiPageSidebar = FALSE
  19.   
  20.   -- make sure the control panel is updated in every way
  21.   if objectP(gControlPanel) then
  22.     tell window "Control Panel"
  23.       setIconStatus "music", gMusicOn
  24.       setIconStatus "caption", gCaptionOn
  25.     end tell
  26.   end if
  27.   
  28.   if the frame = label("S5") then
  29.     set gMultiPageSidebar = TRUE
  30.   end if
  31.   
  32.   if gLocalSound = TRUE then
  33.     if soundBusy(1) = FALSE then
  34.       sound playFile 1, gCurPath & "DATA:EDGE:EDGELP.AIF"
  35.     end if
  36.   end if
  37.   
  38. end enterFrame
  39.  
  40. -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
  41.  
  42. on exitFrame
  43.   
  44.   global gMovieName, gMovie, gSoloMode
  45.   global gNextIcon, gPreIcon, gBackIcon, gControlIcon, gIndexIcon, gFirstIcon
  46.   global gLastFrame
  47.   
  48.   if gSoloMode = FALSE then keepmusic
  49.   go to the frame
  50.   
  51. end exitFrame
  52.  
  53. -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
  54.  
  55. on MouseUp
  56.   
  57.   global gMovieName, gMovie, gSoloMode
  58.   global gNextIcon, gPreIcon, gBackIcon, gControlIcon, gIndexIcon, gFirstIcon
  59.   global gLastFrame, gPlaceOfOrigin
  60.   global gSideBarOfOrigin, gMap1Icon, gMap2Icon, gMultiPageSidebar
  61.   
  62.   
  63.   case the ClickOn of
  64.       
  65.     gControlIcon:
  66.       openControlPanel
  67.       
  68.     gPreIcon:
  69.       if gMultiPageSidebar = FALSE then
  70.         -- single page sidebar
  71.         if the frame = label("M1") then
  72.           go to frame gSideBarOfOrigin
  73.         else if the frame = label("M2") then
  74.           go to frame gSideBarOfOrigin
  75.         else
  76.           go to frame gPlaceOfOrigin
  77.         end if
  78.       else
  79.         -- multiple page sidebar
  80.         if the frame = label("S5") then -- KLUDGE
  81.           set gMultiPageSidebar = FALSE
  82.           go to frame gPlaceOfOrigin
  83.         else
  84.           go to the frame - 1
  85.         end if 
  86.       end if
  87.       
  88.     gNextIcon:
  89.       if gMultiPageSidebar = TRUE then
  90.         if the frame = label("SE") then
  91.           set gMultiPageSidebar = FALSE
  92.           go to frame gPlaceOfOrigin
  93.         else
  94.           go to the frame + 1
  95.         end if
  96.       else
  97.         -- do nothing, there is no next
  98.       end if
  99.       
  100.     gMap1Icon:
  101.       if the frame = label("S2") then
  102.         set gSideBarOfOrigin = the frame
  103.         go to frame label("M1")
  104.       end if
  105.       
  106.     gMap2Icon:
  107.       if the frame = label("S2") then
  108.         set gSideBarOfOrigin = the frame
  109.         go to frame label("M2")
  110.       end if
  111.       
  112.   end case
  113.   
  114. end MouseUp
  115.